;;QQ:67762207
[@JiahuoPK]
{
#IF
checkcmd CHECKUSERJF 50
#SAY
ǲǱ۸ܵ˷˴?\
޻ĳ???\
ҿ԰ʵԸ.ҵ{FCOLOR/1}޻{FCOLOR/12}.\
\
<޻/@geiPKx>\
< /@exit>\
#ELSEACT
goto  @noka1


[@geiPKx]
#IF
checkcmd CHECKUSERJF 50
checkitem ޻ 1
#SAY
Ƭ.\
ȷߣߣҵħͲ...\
\
<Ѿȷ/@queding>\
< /@exit>\
#ELSEACT
goto  @noka

[@queding]
#IF
checkcmd CHECKUSERJF 50
checkitem ޻ 1
#SAY
õģҪ޻ĳ.\
\
</@@shuru_PK>\

[@@shuru_PK]
#act
   mov  A0  %INPUTSTR
#IF
EQUAL A0 %USERNAME
#ACT
SYSMSG "Բ,Լ"
BREAK
#IF
EQUAL A0 ""
#ACT
SYSMSG "Ϣ"
BREAK
#elseact
#IF
checkcmd CHECKUSERJF 50
checkitem ޻ 1
#ACT
   mov  S1  8
#ACT
goto @CHARACTERx

[@CHARACTERx]
#IF
equal  S1 8
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_PKPOINT"  [@Point_PKPOINTPK+]

[@Point_PKPOINTPK+()]
#IF
#ACT
   mov       A3   %ARG(1)   
   mov       D3   %ARG(2)   ;;PKֵ

#SAY
ȷһ£Ҫ޻ {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} ˣ\
{FCOLOR/11}ȷһ£ǷߣֻвߣҵħЧ.{FCOLOR/12}\
һ{FCOLOR/1}500{FCOLOR/12}ĺֵ.\
\
<ȷ/@PK_+++>\

[@PK_+++]
#IF
checkcmd CHECKUSERJF 50
checkitem ޻ 1
equal  S1 8
#ACT
actcmd SETUSERJF - 50  
take ޻ 1
lineMsg [Grobal] "飬飬½ĳλӢ۱С˰..."

   FormatStr "FLD_CHARACTER='%s'" %A0
   mov   A8      %A9
   inc   D3  500
   FormatStr "FLD_PKPOINT='%s'" %D3
   UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
   mov S1 0

#SAY
Ϸ {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} Ŀǰĺֵ {FCOLOR/1}<$OUTPUT(D3)>{FCOLOR/12} .\
{FCOLOR/11}飬ˡ\
< /@exit>
#ELSEACT
goto  @

;;-----------------------------------------------------------------

[@]
#SAY
{FCOLOR/1}Сˡ´ֱɾ.\
< /@exit>\

[@noka]
#SAY
{FCOLOR/10}ûм޻Ҳʩչħ...\
< /@exit>\

[@noka1]
#SAY
{FCOLOR/10}50ּһż޻Ҿܰʵּ޻˵Ը.\
ûǮԶ....\
< /@exit>\

}
;;QQ:67762207